Profile of (eval 423)[Sub/Quote.pm:3]

Filename	(eval 423)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 16 statements in 191µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	13µs	54µs	Type::Tiny::::__ANON__[:16]Type::Tiny::__ANON__[:16]
1	1	1	11µs	11µs	Type::Tiny::::BEGIN@9Type::Tiny::BEGIN@9
1	1	1	8µs	46µs	Type::Tiny::::BEGIN@16Type::Tiny::BEGIN@16

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	3µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	1µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4					package Type::Tiny;
5					# spent 54µs (13+41) within Type::Tiny::__ANON__[(eval 423)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] which was called: # once (13µs+41µs) by JSON::Schema::Modern::add_vocabulary at line 177 of Sub/Defer.pm $$_UNQUOTED = sub {
6					($_QUOTED,$_UNQUOTED) if 0;
7					# BEGIN quote_sub PRELUDE
8					package Type::Tiny;
9					# spent 11µs within Type::Tiny::BEGIN@9 which was called: # once (11µs+0s) by Sub::Quote::_clean_eval at line 14 BEGIN {
10	1	1µs			$^H = 1762;
11	1	2µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
12	1	6µs			%^H = (
13					);
14	1	26µs	1	11µs	} # spent 11µs making 1 call to Type::Tiny::BEGIN@9
15					# END quote_sub PRELUDE
16	9	146µs	4	125µs	# spent 46µs (8+38) within Type::Tiny::BEGIN@16 which was called: # once (8µs+38µs) by Sub::Quote::_clean_eval at line 16 do { no warnings "void"; package Type::Tiny; (((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $_[0] }) }) && (do { local $_ = $_[0]; $_->DOES('JSON::Schema::Modern::Vocabulary') }))) or Type::Tiny::_failed_check(66, "__ANON__", $_[0], ); $_[0] }; }; # spent 46µs making 1 call to Type::Tiny::BEGIN@16 # spent 38µs making 1 call to warnings::unimport # spent 29µs making 1 call to JSON::Schema::Modern::Vocabulary::OpenAPI::DOES # spent 12µs making 1 call to Types::Standard::__ANON__[(eval 46)[Types/Standard.pm:48]:16]
17					}
18	1	6µs			1;
19
20					;